home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
wb
/
sonivisgui.lha
/
SONIVISGUI
/
XANIM_GUI1.11
< prev
next >
Wrap
Text File
|
1995-05-17
|
1KB
|
50 lines
;Xanim(BETA) GUI file viewer V1.11
;©1995 Ivan Smith
;For WorBench 3.X+ ONLY!
;Requestchoice and Request File must be in you C: dir.
IF NOT EXISTS ENV:X11
makedir >NIL: ENV:X11
ENDIF
LAB start
;Audio Enabled or not?
C:Requestchoice >env:Xoperat "Play With Audio or Not?""Choose A Method""audio""silent"
;Variables for Requestchoice
IF $Xoperat eq "0"
skip silent
ENDIF
IF $Xoperat eq "1"
skip audio
ENDIF
IF $Xoperat eq "2"
C:endcli
ENDIF
;Call the better vision player
LAB silent
;Sets environment variables for X11
setenv X11/askmode 1
setenv X11/gfxcard 1
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Which Vision File?"
;Set big enough stack for XANIM
Stack 50000
run Xamiga +f $Xfilename
C:endcli
skip start
;Call the Audio version
LAB audio
;Sets environment variables for X11
setenv X11/askmode 1
setenv X11/gfxcard 1
;Set big enough stack for XANIM
Stack 50000
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Which Vision File?"
run C:Xanim +Ae +b +f $Xfilename
C:endcli
skip start
;END